unit ULinhas;


interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, UCelula;

type
  St100 = String[100];
  TLinha = class (TObject)
  private
    FNCols: Integer;
    FTipo: ST100;
    property NCols: Integer read FNCols write FNCols;
    property Tipo: ST100 read FTipo write FTipo;
  public
    Colunas: Array[1..100] of TCelula;
    Constructor Create;
    procedure SetNCols(xNCols:integer);
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
************************************ TLinha ************************************
}

Constructor TLinha.Create;
var
  i: Word;
begin
  for i := 1 to 100 do  // ajustar para NCols passando comoparametro no create
    Colunas[i] := TCelula.Create;

end;

procedure TLinha.SetNCols(xNCols:integer);
begin
  if xNCols > 100 then xNCols := 100;
  NCols := XNCols;
end;


end.
